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Introduction 

Direct access to the digital channel is now provided 
within some private branch exchange (PBX) 
environments, in private digital networks, by digital 
data services (DDS), and will be provided through 
integrated services digital network (ISDN) 
connections. To make better use of these digital 
channels, more sophisticated techniques can be 
applied to coding analog signals at a rate lower 
than 64 kbits/s so that more than one analog 
signal, or concurrent analog and digital signals, can 
be transmitted over the same 64 kbits/s channel. 

Typically, telephone quality signals are digitally 
encoded using pulse-code modulation (PCM) by 
sampling the analog signal at an 8 kHz rate, and 
quantizing each sample using an 8-bit companding 
codec. This conversion produces a 64 kbits/s digital 
signal from the original 4 kHz bandwidth analog 
signal. The digital signal is then transmitted through 
the telephone network using a 64 kbits/s channel 
before being converted back to the analog domain 
at the receiving end. One solution for increasing the 
capacity of the 64 kbits/s channels is to encode the 
voice channel using ADPCM. 

The ADPCM transcoder converts an A-law or |u-law 
64 kbits/s PCM data stream into a 32 kbits/s 
ADPCM data stream. Once converted, the channel 
capacity of the current 64 kbits/s PCM is doubled, 
providing more channels for transmitting and 
receiving data. A block diagram of a full-duplex 
ADPCM transcoder is shown in Figure 1. 

Two programs for implementing the ADPCM 
transcoder are described in this note. The 
programs implement a transcoder meeting the 
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CCITT recommendation G.721 [1]*. A full-duplex 
implementation requires a DSP16A running at 
50 ns. This set of programs can be modified to 
allow nonstandard operation on a DSP16 [2] 
running at 75 ns. Equivalent coding quality can be 
achieved in this mode. This should be the program 
of choice when interoperation with a CCITT G.721 
transcoder is not required. The modification is 
identified in the Source Code section. 
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Figure 1. Full-Duplex ADPCM Transcoder 

The ADPCM Algorithm 

The bit rate needed to transmit (or store) speech 
can be reduced by removing any redundancy in the 
original PCM encoded signal. ADPCM transcoders 
remove redundancy by using a predictor to 
estimate the signal value at each sample. By 
subtracting this estimate from the original signal, a 
signal with less dynamic range is produced, which, 
in turn can be quantized with fewer bits than the 



original PCM sample. Adaptation of the predictor is 
based on a history of recent quantized samples. 
Therefore, no additional information is needed by 
the decoder to reconstruct the transmitted signal. 
The quantizer step-size adaptation rate is also 
controlled to optimize the transcoders signal-to- 
noise ratio. The quantizer stops adapting in the 
presence of narrow-band energy to improve the 
performance for voiceband data signals. The 
decoder also includes a synchronous coding 
adjuster which reduces the cumulative distortion 
that occurs on synchronous tandem encodings. 

The detailed functional blocks comprising the 
transcoder are described in the Encoder and 
Decoder sections. 

Encoder 

Input Conversion and Error Calculation 

A detailed diagram of the ADPCM encoder is 
shown in Figure 2. The input signal, s(k), is a 
64 kbits/s |i-law PCM or A-law data stream. It is 
converted to a linear PCM signal, S|(k), by the PCM 
format converter. The difference signal, d(k), is 
calculated from the linear PCM signal and the 
signal estimate, as shown by the formula in 
Equation 1 . 

1) d(k) = S|(k)-S e (k) 
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Figure 2. ADPCM Encoder Block Diagram 



[ ] Indicates a reference listed at the conclusion of this 
application note. 
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Adaptive Quantizer 

The difference signal is then fed to a 15-level 
adaptive quantizer from which the 4-bit quantized 
output signal, l(k), is generated. Prior to 
quantization of the signal d(k), it is converted to a 
base 2 logarithmic representation and scaled by 
y(k), which is computed by the quantizer scale- 
factor adaptation block. The normalized input/output 
characteristics of the quantizer for the 32 kbits/s 
operation are given in Table 1. I(k) is the 32 kbits/s 
ADPCM encoded output signal transmitted to the 
receiver and fed back into the transmitter. 

Table 1= Quantizer Normalized Input/Output 
Characteristic for 32 kbsts/s Operation 



Normalized 




Normalized 


Quantizer 




Quantizer 


Input Range 


|l(k)| 


Output 


log 2 |d(k)| - y(k) 




log 2 Id q (k)| - y(k) 


[3.12, + oo) 


7 


3.32 


[2.72,3.12) 


6 


2.91 


[2.34, 2.72) 


5 


2.52 


[1.91, 2.34) 


4 


2.13 


[1.38, 1.91) 


3 


1.66 


[0.62, 1.38) 


2 


1.05 


[-0.98, 0.62) 


1 


0.031 


(- oo, -0.98) 





— oo 



Note: [ or ] indicates that the endpoint value is included in the 
range and ( or ) indicates that the endpoint value is excluded 
from the range. 

Inverse Adaptive Quantizer 

The inverse adaptive quantizer generates the 
quantized difference signal, d q (k), by scaling 
specific values of y(k) from the appropriate 
normalized quantizing characteristic, shown in 
Table 1, and converting the result to linear form. 

Quantizer Scale-Factor Adapter 

The quantizer scale-factor adapter computes the 
scaling factor, y(k), which determines the quantizer 
step size. The scaling factor is a combination of two 
terms, the unlocked scaling factor, y u (k), and the 
locked scaling factor, yj(k). The scaling factors can 
be calculated using the following formulas: 



2a) y(k) = a,(k)y u (k-1) + [1-a,(k)]y,(k-1) 

where < aj(k) < 1 

2b) y u (k) = (1-2- 5 )y(k) + 2- 5 W[l(k)] 

where y u (k) is limited by 1.06 < y u (k) < 
10.00. 

2c) y,(k) = (1-2- 6 )y l (k-1) + 2- 6 y u (k) 

The definition of the signal W[l(k)] is shown in 
Table 2. 

Table 2. Definition of W[l(k)] for 32 kbits/s 
Encoding 



|l(k)| 


7 


6 


5 


4 


W[l(k)] 


70.13 


22.19 


12.38 


7.00 


|l(k)| 


3 


2 


1 





W[l(k)] 


4.00 


2.56 


1.13 


-0.75 



Adaptation Speed Control 

The adaptation speed control allows two modes of 
operation, fast and slow. The two modes provide 
better performance in signals with large (e.g., 
speech) and small (e.g., data) variance, 
respectively. The adaptation speed-control 
parameter, aj(k), is derived from a measure of the 
rate of change of the difference signal values. 

Two measures of the average magnitude of l(k) are 
computed by using the following equations: 

3a) d ms (k) = (i-2" 5 )d ms (k-1) + 2" 5 F[l(k)] 

and 
3b) d m ,(k) = (i-2" 7 )d m ,(k-1) + 2" 7 F[l(k)] 

The definition of the signal F[l(k)] is shown in 
Table 3. 

Table 3. Definition of F[l(k)] for 32 kbits/s 

Encoding 



IKk)] 


7 


6 


5 


4 


3 


2 


1 





F[l(k)] 


7 


3 


1 


1 


1 












Therefore, d ms (k) is a relatively short-term average 
of F[l(k)], and d m! (k) is a relatively long-term 
average of F[l(k)]. These two averages can be used 
to define a p (k). 
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(1-2- 4 )a p ( k - 1 ) + 2-3 . 

if I d ms (k)-d ml (k) | >2-*6 m] (k) 
(1-2- 4 )a p (k-1) + 2- 3 , 

if y(k) < 3 
4a) a p (k) = «j (1-2- 4 )a p (k-1) + 2- 3 , 

ift d (k) = l 
1, if t r (k) = 1 
(1-2- 4 )a p (k-1), 

otherwise. 



The equation a p (k-1) is limited to yield ai(k). 



4b) a,(k) 



1, 



a p (k-1)>l 



a p (k-1), a p (k-l)<1 



The signal d q (k) is then fed to the reconstructed 
signal calculator, an adaptive predictor, and a tone 
and transition detector. 

Adaptive Predictor and Resconstructed Signal 
Calculator 

The adaptive predictor and the reconstructed signal 
calculator compute the signal estimate, s e (k), by 
using the following formulas: 

5a) s e (k) = ia i (k-1)s r (k-i)+s ez (k) 

i=1 

5b) s ez (k) = £b|(k-l)d q (k-i) 

i=1 

5c) s r (k-i) = Se(k-i) + d q (k-i) 

5d) a 1 (k) = [l-2" 8 ]a 1 (k-l) 

+ 3*2- 8 sgn[p(k)]sgn[p(k-1)] 

a 2 (k) = [1-2" 7 ]a 2 (k-1) 

+ 2- 7 {sgn[p(k)]sgn[p(k-2)] 
-f[ai(k-1)]sgn[p(k)]sgn[p(k-1)]} 

where 



p(k) = d q (k) + s ez (k) 

f4a 1f la^ <2" 1 

f(ai)= |2sgn(a 1 ) J | ai | > 2" 1 



and sgn[0] = 1, except sgn[p(k-i)] is defined to be 
only if p(k-i) = and i = 0; with the stability 
constraints: 



| a 2 (k) | < 0.75 and | a, (k) | < 1 - 2" 4 - a 2 (k) 
If t r (k) = 1, then a^k) = a 2 (k) = 
5e) bi(k) = [1-2- 8 ]bi(k-i) 

+ 2- 7 sgn[d q (k)]sgn[d q (k-i)] 
where i = 1,2,. ..6 and -2 <bj(k) <+2 

and sgn[0] = 1, except sgn[d q (k - i)] is defined to 
be only if d q (k-i) = and i=0. If t r (k) = 1, then 
bi(k) = b 2 (k)= •■■ =b 6 (k) = 0. 

Tone and Transition Detector 

The tone and transition detector is used to improve 
performance of modems transmitting through an 
ADPCM encoder. This is accomplished by 
controlling the adaptation rate of the quantizer step 
size and the predictor coefficient values. A two- 
step detection process is used to accomplish this 
control. First, if the presence of a partial band 
signal (e.g., tone) is detected, the quantizer is set 
to adapt at a fast rate. 



6a) t d (k) 



1, a 2 (k) < -0.71875 
0, otherwise 



If a transition from a partial band signal to a wide 
band signal (e.g. speech) is detected, the predictor 
coefficients are set to zero, and the quantizer is set 
to a fast mode of adaptation. 



6b) t r (k) = 



Decoder 



1, a 2 (k) < -0.71875 and 



|d q (k)|>24 
0, otherwise 



■>yiM 



A detailed diagram of the ADPCM decoder is 
shown in Figure 3. The input signal, l(k), is a 
32 kbits/s ADPCM signal. Most of the functional 
blocks comprising the decoder are described in the 
encoder section, with one exception. The output of 
the PCM format converter is fed to a synchronous 
coding adjuster. The function of the synchronous 
coding adjuster is to prevent cumulative distortion 
that occurs on synchronous tandem codings. The 
synchronous coding adjuster, s d (k), produces an 
output which is close to the original signal that was 
processed by the ADPCM encoder. This is 
accomplished by considering the values of d x (k), (a 
version of the encoded signal), and s e (k), (the 
predicted signal error), as follows: 
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Figure 3. ADPC1V1 Decoder Block Diagram 

Sp(k), d x (k) < lower interval boundary 
7a) s d (k) = \ Sp(k), d x (k) > upper interval boundary 
s p (k), otherwise 

where 



s p (k) = 



sS(k) = 



Sp(k) = 



the output PCM code word of the 
decoder. 

the PCM code word that represents the 
next more positive PCM output level 
[when s p (k) represents the most 
positive output level, then Sp(k) is 
constrained to be the value s p (k)]. 

the PCM code word that represents the 
next more negative PCM output level 
[when s p (k) represents the most 
negative output level, then Sp(k) is 
constrained to be the value s p (k)]. 

7b) d x (k) = s, x (k)-s e (k) 

where s ix (k) is a linear PCM version of the 
signal s p (k). 

Implementation 

This section describes the hardware and software 
aspects of a CCITT ADPCM transcoder 
implementation using the DSP16. Alternative code 
for the more efficient, nonstandard implementation 



is also provided in the source code listing. 

Hardware Interface 

Figure 4 is a schematic of hardware that can be 
used to demonstrate both the CCITT and non- 
standard ADPCM algorithms. The hardware 
consists of two identical units comprised of an 
AT&T T7500 Codec [3] interfaced to a DSP16 
through its serial port. A common clock is used to 
provide codec interface signals for both units. The 
32 kbits/s ADPCM signal is transmitted between the 
two DSP16s using the parallel port (PIO). The port 
is configured in status/control (S/C) mode. It is 
clocked at 32 kHz through the parallel input data 
strobe (PIDS) by a divided version of the codec bit 
clock. The S/C mode allows data to be 
simultaneously transferred into the upper 8 bits of 
the 16-bit PIO and out of its lower 8 bits. In this 
case, only one bit in each direction is needed to 
transmit a full-duplex, 32 kbits/s bit stream. 

Figures 5 through 7 show the interface timing for 
the DSP16 serial port and the codec. Figure 8 
shows the timing for the DSP16 PIO. The parallel 
output data strobe (PODS) is tied low in both 
DSP16s to force the lower 8 bits of the PIO into 
output mode. 

When implementing the CCITT algorithm, DSP16 
#1 is used to encode the analog signal on the input 
of its corresponding codec. The 32 kbits/s encoded 
signal is transmitted to DSP16 #2 that decodes the 
signal and outputs the analog signal through its 
corresponding codec. In the nonstandard mode, 
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Figure 6. Serial Input Timing 
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Figure 7. Serial Output Timing - 8 Bits 
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Figure 8. Parallel I/O Timing In S/C Mode 
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Figure 9. A Flowchart for Implementing an 
Encoder in the ADPCM Demonstration System 

each DSP16 implements a full-duplex transcoder, 
allowing analog signals to be transmitted in both 
directions. 

Software Implementation 

Figures 9 and 10 show the flowcharts for the 
ADPCM encoder and decoder, respectively. In this 
approach the encoder and decoder are 
synchronized with the codecs' 8 kHz sample clock. 
One bit is transferred through the parallel I/O port 
when the synchronous 32 kbits/s clock interrupts 
the DSP16 through PIDS. A flowchart of the 
interrupt service subroutine is shown in Figure 11. 

Program listings 1 and 2 implement the CCITT 
ADPCM encoder and decoder, respectively. 




RESET 




YES 



Shift RAM location 
SD to output buffer 



Get a new ADPCM 

4-bit input from RAM 

location I through 

PIO at 32 kbits/s 

by interrupt 



Decode sample 



Store 8-bit sample 
in RAM location SD 



Figure 10- A Flowchart for Implementing a 
Decoder In the ADPCM Demonstration System 

Pages 12, 28, and 36 of this application note show 
the changes needed to implement the nonstandard 
algorithm. If nonstandard mode is selected, the 
native multiply instruction is used in several places, 
rather than the floating-point format described in 
the CCITT recommendation. This reduces the 
computational complexity by an amount that allows 
a full-duplex transcoder to be implemented on a 
single DSP16 running at a 75 ns instruction cycle 
time. The code headers correspond to the 
algorithm block diagram described earlier. 

Table 4 shows the DSP16 RAM, ROM, and real- 
time utilization for both the CCITT and non- 
standard ADPCM algorithms. 
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Table 4. DSP16 Utilization 



R/l#\ 




16-bit words 


CPU Utilization 


IVlOuc! 


ROM (2K) 


RAM (512) 


at 55 ns 


Standard 


Encoder 


900 


50 


52% 


Decoder 


850 


50 


57% 


Non- 
standard 


Encoder/ 
Decoder 


1500 


100 


59% 
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Figure 11. A Flowchart of the Interrupt 
Service Subroutine 
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Program Listing 1. ADPCM Encoder Source Code 



/* */ 

/* This program ADPCM encoder is coded according to the CCITT */ 

/* standard algorithm described in G.721. All the notations used */ 

/* here are based on the CCITT documents and the program only */ 

/* operates in u-law. The multiplication operations in the FMULT */ 

/* block are modified slightly to increase the DSP16 performance */ 

/* with the bit precision kept. The code in the FMULT block is */ 

/* fully compatible with the CCITT G.721 standard FMULT code. */ 

/* The input data is assumed in RAM location SD before program */ 

/* execution and the result is stored in RAM location I. */ 

/* */ 

/* */ 

/* Program Initialization */ 

/* */ 



a dp erne : 



auc=Oxc 

y=OxO 

rl=YL 

*rl++=y 

y=0x8800 

*rl=y 

r2=YU 

y=5 4 4 

*r2=y 

y=0x0 

rO=DML 

*rO=y 

rl=DMS 

*rl=y 

r3=AP 

*r3=y 

rO=DQl 

rl=DQCNTl 

y-1 

do 8 { 

*rO++=y 

*rl++=y 

} 

rO=templ 

*rO=y 

y=OxO 

rO=PKl 

do 2 { 

*rO++=y 

} 

rO=Bl 

rl=DQlS 

do 8 { 

*rO++=y 

*rl++=y 

} 

rl=TD 

*rl=y 



/* Set auc register 
/** RESET SECTION 

/* Set initial values for 
/* Quantizer Scale Factor 
/* Adaptation block. 



/* Initialize the Adaptation 
/* Speed Control block. 



/* Initialize the Adaptive 
/* and Reconstructed Signal 
/* Calculator block. 



*/ 

** / 

*/ 
*/ 
*/ 



*/ 
*/ 



*/ 
*/ 
*/ 



/* Initialize the Tone and 
/* Transition Detector block. 
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/****** ************** *********************************** *************/ 
/* */ 

/* Main Program */ 

/* */ 

/********************************************************************/ 

/********************************************************************/ 
/* */ 

/* FMULT */ 

/* */ 

/********************************************************************/ 



loop : 
pred: 



10bl8: 



c0=-7 

rO=DQCNTl 

rl=DQl 

r2=WBl-l 

r3=Bl 

a0=*r3 

y=0xfffc 

aO=aO&y *r2++=all 

if mi aO=-aO 

aO=aO»l 

if eq a0h=a0h+l 

cl=-16 

al=aO 

do 15 { 

ifc pi al=al«l 

} 

al=c2 

al=-al 

j-al 

y=tabll 

al=al+y 

pt=al 

y=aO x=*pt++ 

aO=x 

aO=aO&y al=*r3++ 

al=al 

if mi aO=-aO 

al=*rO++ 

y=16 

al-y 

if pi aO=aO«l 

x=aO 

aO=j 

y=aO 

al=al+y y=*rl++ 

p=x*y 

y=2 2 

al-y 

y=0x40 

move aO=y 

if pi a0=a0«8 

al=al«l 

y=tabl2 

al=al+y 

pt=al 

al=p y=aO x=*pt++ 

p=x*y y=aO x=*pt++ 

aO=al 

if mi al=-al 

al=al+p p=x*y 

y=al 

al=al«16 



/** AFTER DELAY PARTS aparsc.s 
/* Set the points before doing 
/* FMULT. 



/* aO = | aO | 

/* If aO = 0, then aO = aO + 1 

/* Set counter cl = 16 

/* al = aO 

/* Compute exponent 



/* Now c2 = - ( exponent ) 
/* al = exponent part 



/* y = I Bn | and x is a pattern 
/* used to round | Bn | . 



/* OK, aO = 2 f s complement 
/* value of Bn with the same 
/* accuracy as standard. 



/* y = DQn 

/* p = Bn * DQn 

/* Compare al with 22 to set 

/* the right pattern with the 

/* table. 

/* If al >= 22, set aO = 0x400. 

/* al = al * 2 for the offset 

/* al points to the table. 



** / 

*/ 
*/ 



*/ 

*/ 
*/ 

*/ 
*/ 



*/ 
*/ 



*/ 
*/ 



*/ 
*/ 
*/ 



*/ 
*/ 

*/ 
*/ 
*/ 
*/ 
*/ 



/* Set y (32 bits) 



al. 
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yl-al 

al=p 

al=al&y 

al=al»8 /* Rescale al . */ 

al=al»4 

al=al»l 

a 0=a0 /* Check the sign bit. */ 

if mi al=-al /* If negative, then al = -al . */ 

if cOlt goto 10bl8 /* Do eight times. */ 

*r2++=all 

/* */ 

/* ACCUM */ 

/* */ 

rO=WBl /** ACCUM **/ 

aO=*rO++ 

y=*rO++ 

do 5 { 

aO=aO+y y=*rO++ /* Sum for partial signal */ 

} /* estimate */ 

al=aO+y y=*rO /* aO = SEZI */ 

al=al+y /* al = SEI */ 

rO=SEZ /* SEZ is 16 bits TC */ 

aO=aO»l 

*rO=aO 

rl=SE 

al=al»l 

r 3=AP /** AFTER DELAY LIMA adspcl . s **/ 



/* 














*/ 


/* 


For 


the non-standard 


CCITT ADPCM mode, the program from 


*/ 


/* 


the 


label, loop (Main 


l pr 


rogram) 


I , to the previous line 


*/ 


/* 


(r3- 


=AP) replaced by the 


following program segment. 


*/ 


/* 














*/ 


/* 


loop: 










*/ 


/* 


pred: rl=DQl 




/ 


aparsc 




*/ 


/* 




r2=Bl 




; 


Set the points 


before 


*/ 


/* 




y=0 




/ 


doing FMULT 




*/ 


/* 




al-y x=*r2++ 




/ 


Clear al 




*/ 


/* 




do 6 { 










*/ 


/* 




y=*rl++ 










*/ 


/* 




p=x*y 




/ 


p = DQn * Bn 




*/ 


/* 




aO=p x=*r2++ 




/ 


aO = DQn * Bn 




*/ 


/* 




aO=aO»l 










*/ 


/* 




a0=a0«4 




/ 


Scaling 




*/ 


/* 




y=aO 










*/ 


/* 




al=al+y 










*/ 


/* 




} 










*/ 


/* 




aO-al»l 




/ 


aO = SEZ 




*/ 


/* 




r3=SEZ 










*/ 


/* 




*r3=a0 




/ 


Store it 




*/ 


/* 




redo 2 










*/ 


/* 




al=al»l 




/ 


al = SE 




*/ 


/* 




rl=SE 










*/ 


/* 




r3=AP 




/ 


adspcl . s 




*/ 


/* 














*/ 


/*********************************************^ 






a0=*r3 
















do 2 { 
















aO=aO»l 
} 













12 



Implementation ©f ADPCM Traoscoder 



y=0x3f 

yl=0xc00 

aO-y *rl=al 

y=64 

if gt aO=y 

r2=AL 

*r2=a0 

r2=YU 

rl=YL 

al=*rl++ 

all=*rl — 

al=al«8 

al=al«l 

al=al«l 

move y=al 

a0=*r2 

aO=aO-y 

rO=AL 

x=*rO 

y=aO 

p=x*y 

aO=p 

a0=a0«8 

aO=aO«l 

aO=aO«l 

move y=aO 

al=al+y 

y=0xlfff 

al=al&y 

r2=Y 

*r2=al 



/* y = ( 255 » 2 ) 

/* SE is 16 bits TC 

/** AFTER DELAY MIX qsfadp.s 



*/ 

*/ 

**/ 



/* y = (YL » 6) 

/* aO = DIFM 

/* p = PRODM = (DIFM * AL) » 6. 

/* y = PROD 



*/ 
*/ 

*/ 
*/ 



/* Y = Standard Y +- 1 if (YL»6) > YU */ 



/* */ 

/* EXPAND */ 

/* */ 



ipcdsc: rl=S 

aO=*rl 

y=0xff 

aO=aO A y 

al=a0»4 

y=0x7 

al=al&y 

al=-al 

cO=al 

y=0xf 

al=aO&y 

al=al«l 

y=0x21 

al=al |y 

do 7 { 

if cOlt al=al«l 

} 

y=33 

al=al-y 

y=0x80 

rO=SE 

aO=aO&y y=*rO 

if ne al=-al 

rl=D 

al=al-y 

*rl=al 



/' 



EXPAND ipcmv.s 



/* Invert bits 

/* This program only considers 

/* the input as u-law. 

/* al = L = abc 



/* al — V = xyzw 



** / 

*/ 

*/ 
*/ 



/* Check the sign bit. 



/* If negative, then al = -al , 
/** SUBTA 



*/ 

** / 
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Implementation of ADPCM Transcoder 



/* */ 

/* LOG */ 

/* */ 

adaqul: rO=D /** LOG adaqua . s **/ 

y=*rO 
aO=y *r0 

if mi aO=-aO /* Convert D from 2's complement */ 
cl=-15 /* to signed magnitude */ 

al=aO 
do 15 { 
ifc pi al=al«l /* Compute exponent */ 

} 

y=0x7f00 

aO=al&y 

a0=a0»8 

al=c2 

y=aO 

al=-al 

al=al«8 

al=al»l /* al = EXP « 7 */ 

rO=Y 

al=al+y aO=*rO /* al = (EXP « 7) + MANT */ 

aO=aO»l 

aO=aO»l /* aO = Y » 2 */ 

y=aO 

rO=YSH2 

al=al-y *rO=aO /** SUBTB **/ 

y=4095 

al=al&y 

rO=DLN /* DLN = (DL + 4096 - y) & 4095 */ 

*r0=al 
quan: r0=DLN /** QUAN adaqua . s **/ 

al=*r0 

al=al»16 

r3=templ 

rl = 

pt=dln 

y=*r3 x=*pt++ /* Compare al with DLN to find */ 

16bl: p=x*y y=*r3 x=*pt++ /* the point to I . */ 

a0=al-p *rl++ 

if gt goto 16bl 

r0=D 

y=*r0 

a0=y *r0 /* Check the sign bit. */ 

y=neg-l 

if mi goto 16b3 

y=pos-l 
16b3: a0=rl 

a0=a0+y 

pt=a0 /* aO points to I . */ 

y=*r0 x=*pt++ 

rO=I 

*r0=x 
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Implementation ©f ADPCR/i Transc@d@r 



/********************************************************************/ 
/* */ 

/* RECONST */ 

/* */ 

/********************************************************************/ 

inadql: rl=YSH2 /** RECONST inadqu . s **/ 

r2 = I 

a0=*r2 

y=0xf 

aO=aO A y 

y=0x08 

aO&y y=*r2 

if ne aO=y 

y=dqln 

aO=aO+y /* aO is the point to DQLN table */ 

pt=aO 

y=*rl x=*pt++ 

aO=x /** ADDA **/ 

aO=aO+y /* DQL = (DQLN + (Y»2) ) & 4095 */ 

y =0x7f /** ANTILOG **/ 

al=a0&y /* al = DMN */ 

y=0x80 /* y = (1«7) */ 

al=al+y /* al = DQT */ 

al=al»l 

al=al«8 

y=0 

aO=aO«4 

if mi al=y /* If DS = 1, then DQMAG =0. */ 

aO=aO»16 

a0=a0«4 

a0=a0«l 

y=0xf 

a0=a0&y 

y=-14 

a0=a0+y 

cl=a0 

do 14 { 

if cllt al=al»l 

} 

r0=DQ0S 

a0=*r2 /* aO = I */ 

y=0x08 

a0=a0&y 

a0=a0«l /* Check DQS . If positive, then */ 

aO=aO»4 /* set DQ0S = 0, otherwise DQ0S=1 . */ 

*r0=a0 

if ne al=-al /* al = | al | */ 

r0=DQ16 

*r0=al 
transl: rO=YL /** AFTER DELAY TRANS totrde.s **/ 

a0=*r0++ 

a01=*r0 — /* aO = YL */ 

a0=a0«l 

x=a0 

al=x /* al = YLINT */ 

al=-al 

c0=al 

al=a0«4 

al=al«l 

y-31 

al=al&y /* al=YLFRAC= (YL » 10) & 31 */ 

y=3 2 

al=al+y /* al=THRl= (32 + YLFRAC) */ 

do 8 { 
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if cOlt al=al«l 

} 

aO=x 

y=8 

aO-y 

y=0x3e00 

if gt al=y 

aO=al»l 

y=aO 

al=al+y 

al=al»l 

y=al 

rl=DQ16 

al=*rl 

al=al 

if mi al=-al 

r2=TD 

al=al-y a0=*r2 

if le a0=a0«16 

r3=TR 

*r3=a0 



/* YLINT > 8 ? 



/* 



31 « 9 



/* Yes, YLINT > 



/* al = THR2 + (THR2 » 1) 
/* al = DQTHR 



*/ 
*/ 
*/ 



/* al = DQMAG - DQTHR 
/* If less or equal, set 
/* a0=0. 



*/ 
*/ 

*/ 



/*****************************•****************** 

/* */ 

/* ADDB */ 

/* */ 



aparsl: rO=DQ16 
aO=*rO 



rO=SE 

r3=SRlS 

y=*rO 

aO=aO+y x=*r3 — 

rO=SR 

*rO=aO 

y=0 

move al=y 

if mi alh=alh+l 

aO=aO 

if mi aO=-aO 

*r3++=x 

*r3=al 

aO=aO«l 

if eq a0h=a0h+l 

cl — 16 

c2=-16 

al=aO 

do 15 { 

ifc pi al=al«l 

} 

r2=SRCNTl 

al=c2 

al— al 

y=16 

al-y x=*r2 

*r2 — =al 

if eq aO=aO»l 

y-tabll 

*r2=x 

al=al+y 

pt=al 

y=*r2 x=*pt++ 

al=x 

y=al 

aO=aO&y al=*r3 



/** BEFORE DELAY — ADDB aparsc.s 

/* aO = SR 

/* Set al = SR sign bit 

/** FLOATB 

/* aO = MAG = | SR | 

/* Update the sign bit storage. 



** / 

*/ 

*/ 

** / 

*/ 
*/ 



/* Find the EXP from the MAG. 



*/ 



/* Check EXP = 16 ? 

/* Yes, shift it back. 

/* Use the table looking up to 

/* find the pattern for retaining 

/* the bit precision in 

/* converting into floating 

/* format, and be represented 

/* in signed magnitude. 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



16 



implementation of ADPCP Transcoder 



al=al 

if ne aO=-aO 

r2=SRl 

y=*r2 — 

*r2++=y 

*r2=a0 

rO=DQl 

r3=Bl 

rl=DQ16 

i=128 

r2=TR 

do 6 { 

aO=*rl 

al=aO 

y=*rO++ 

al=al A y y=*r3 

al=i 

if mi al=-al 

aO=aO 

if eq al=al«16 

al=al+y a0=*r3 

a0=a0»8 

y=aO 

al=al-y a0=*r2 

aO=aO 

if ne al=al«16 

*r3++=al 

} 

r3=DQ16 

a0=*r3 

aO=aO«l 

if mi aO=-aO 

if eq a0h=a0h+l 

cl=-16 

al=aO 

do 15 { 

ifc pi al=al«l 

} 

al=c2 

al=-al 

r2=DQCNT0 

y=tabll 

al=al+y *r2=al 

pt=al 

y=*r2 x=*pt++ 

al=x 

y=al 

aO=aO&y 

rO=DQOS 

al=*rO 

al=al 

if ne aO=-aO 

r2=DQ0 

*r2=a0 

y=*r3 

rO=SEZ 

aO=*rO 

aO=aO+y 

y=0 

move al=y 

if eq alh=alh+l 

rO=SIGPK 

*rO=al 

move al=y 

aO=aO 



/* Update the SR' s parameters 



/** UPB 

/* Set the points for cache. 



/* Do six times . 

/* aO = DQ 

/* y = DQn 

/* al = Un = DQ A DQn 

/* If al positive, then Un=0 . 

/* If al negative, then Un=l . 

/* al = UGBn 

/* al = UGBn + Bn 

/* aO = Bn » 8 

/* al = BnP 

/** TRIGB 

/* If =| 0, set al=0. 



/** FLOATA 

/* aO = DQ 

/* aO = | aO | 

/* Set the initial counter to 
/* find the EXP of aO. 



/* al = EXP of DQ 



/* aO contains the magnitude DQ 
/* Check the sign bit of DQO . 



/* Convert it into 2's complement. 



ADDC 



/* aO = DQSEZ 

/* If DQSEZ=0, set al = 1 

/* otherwise, set al = 

/* Store it in SIGPK. 



*/ 



** / 
*/ 



*/ 
*/ 

*/ 
*/ 
*/ 

*/ 

*/ 
*/ 
*/ 

*/ 

** / 

*/ 



**/ 
*/ 

*/ 

*/ 
*/ 



*/ 
*/ 

*/ 
** / 



*/ 

*/ 
*/ 

*/ 
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if mi alh=alh+l /* Find the PKO */ 

r2=PK0 

*r2=al 

rO=Al /** UPA2 **/ 

y=*r0 

aO=y *r0 /* Check A1S = ? */ 

if mi goto lab2 6 

y=0xlfff /* Yes, compare with 8191. */ 

aO-y 

if gt aO=y /* If aO > 8191, set aO = 8191 */ 

aO=aO»16 

aO=aO«l 

aO=aO«l /* aO = aO » 14 */ 

goto lab28 
lab26: y=OxO /* No, compare with 57345 */ 

yl=*rO 

aO=y 

yl=0xe000 

al=aO-y /* Al - 57344 >= ? */ 

aO=aO«l 

aO=aO«l 

y=0xl 

yl=0xffff 

aO=aO&y /* Yes, aO = Al « 2 */ 

yl=0x8004 

al=al 

if le aO=y /* No, aO = 24577 « 2 */ 

lab28: y=*r2 

rl=PKl 

a l=y y=*rl x=*pt++ 

al=al A y /* al = PKO A PK1 = PKS1 */ 

if eq aO=-aO /* aO = FA */ 

y=*r2 

rl=PK2 

a l=y y=*rl x=*pt++ 

al=al A y /* al = PKO A PK2 = PKS2 */ 

y=0xl /* Set y = 114688 if al < */ 

yl=0xc000 

if ne goto lab31 

y=0x0 /* otherwise, set y = 16384 */ 

yl=0x4000 
lab31: a0=a0+y /* aO = UGA2B */ 

r0=SIGPK 

a0=a0»l 

a0=a0«16 

a0=a0»4 

a0=a0»l 

a0=a0»l /* aO = aO « 9 */ 

y=0x0 

al=*rO 

al=al /* Check SIGPK = ? */ 

if ne a0=y /* If not, set aO = 0. */ 

rO=A2 /* aO = UGA2 */ 

y=*rO 

a0=a0+y /* aO = UGA2 + A2 */ 

al=y /* al = A2 */ 

al=al»8 

al=al«l /* al = A2 » 7 */ 

y=al 

a0=a0-y /* aO = A2T */ 

al=aO /** LIMC **/ 

if mi al— al /* al = | al | */ 

y=0x3000 /* Set y = 12288 */ 

al-y /* |al| > 12288 ? */ 

if pi al=y /* Yes, set | al | = 12288 */ 
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aO=aO 

if mi al=-al 

rO=A2P 

*rO=al 

rl=TR 

a0=*rl 

aO=aO 

if ne al=al«16 

rl=A2 

*rl=al 

rl=PKl 

rO=PKO 

al=*rl++ 

y=*r0 

al=al A y *rl — =al 

*rl=y 

y=192 

move aO=y 

if ne aO=-aO 

rO=SIGPK 

al=*rO 

al=al 

if ne a0=a0«16 

rO=Al 

y=*rO 

aO=aO+y 

al=y 

al=al»8 

y=al 

aO=aO-y 

r2=AlT 

*r2=a0 

y=0x3c00 

rl=A2P 

al=*rl 

al=al-y 

al=-al 

y=al 

al=aO 

if mi al=-al 

al-y 

if pi al=y 

aO=aO 

if mi al=-al 

rO=TR 

a0=*r0 

aO=aO 

if ne al=al«16 

rO=Al 

*rO=al 

rO=DQO 

y=*rO++ 

do 6 { 

*rOzp :y 

} 

rO=DQOS 

y=*rO++ 

do 6 { 

*rOzp :y 

} 

rO=DQCNTO 
y=*rO++ 
do 6 { 
*rOzp :y 
} 



/* al = A2P 



TRIGB 



/* If TR =| 0, set al = 0. 



/** 



/* al 



PKO 



UPA1 



PK1 



PKS 



/* Set aO = 192 if PKS = 
/* otherwise, set aO = 65344 



/* aO=UGAl 

/* y = Al 

/* aO = UGA1 + Al 

/* al = Al 

/* al = Al » 8 

/* aO = UGA1 + Al - (Al » 8) 

/* aO = AIT 

/** LIMD 

/* Set y = 15360 

/* al = A2P - 15360 

/* y = A1UL 

/* al = | AIT | 

/* | AIT | - A1UL 



/* al = A1P 

/** TRIGB 

/* Check TR = ? 

/* If not, then set al = 

/* otherwise, keep al . 



/* Update the DQn parameters 
/* for the next input data. 



/* Update the sign bit of DQn 
/* for the next input data. 



/* Update the parameters for 
/* the next input data. 



*/ 
**/ 

*/ 
**/ 

*/ 



*/ 
*/ 



*/ 

*/ 
*/ 
*/ 
*/ 

*/ 

*/ 

** / 

*/ 

*/ 

*/ 

*/ 
*/ 



*/ 

** / 



*/ 
*/ 



*/ 
*/ 
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/* */ 

/* TONE */ 

/* */ 



totrdl: rO=A2P /* 

aO=*rO 

y=0x2e00 

aO=aO+y 

y=0 

move al=y 

if mi alh=alh+l 

rO=TDP 

*rO=al 

r3=TR 

a0=*r3 

aO=aO 

*rl=al 
adspcl: rO=I 

aO=*rO 

y=FI 

aO=aO+y 

r2=DML 

pt=aO 

y=*r2 x=*pt++ 

aO=x 

al=aO«l 

al=al«l 

al=al-y 

al=al«l 

al=al»8 

al=al+y 

y=0x3fff 

rl=DMS 

al=al&y y=*rl 

aO=aO-y *r2=al 

aO=aO»l 

aO=aO«4 

a0=a0»8 

aO=aO+y 

y-Oxfff 

aO=aO&y y=*r2 

*rl=aO 

aO=aO«l 

aO=aO«l 

aO=aO-y al=*r2 

if mi aO=-aO 

al=al»4 

al=al«l 

move y=al 

r3=Y 

aO=aO-y al=*r3 

r3=TDP 

a0=*r3 

y-i 

if pi aO=y 

y=1536 

al=al-y 

y=l 

if mi aO=y 

a0=a0«8 

aO=aO«l 

r3=AP 

y=*r3 /* y = AP 



TONE totrde.s 



/* y = 11776 

/* a2 (k) + 0.71875 



/* al = TDP 

/** TRIGB 

/* Check TR = ? 

/** FUNCTF adspcl. s 

/* aO = I 

/* Use the table looking up to 
/* find the FI (scaled) value. 



/* aO = FI 

/** FILTB 

/* al = FI « 11 

/* al = (FI«11) - DML = DIF 

/* al = DIF » 7 = DIFSX 

/* al = DIFSX + DML 

/* Set y = 16383 



/** FILTA 

/* aO = DIFSX = DIF » 5 
/* aO = DIFSX + DMS 
/* Set y = 4095 

/* aO = DMSP 

/** SUBTC 

/* aO = DMSP « 2 

/* aO = (DMSP«2) - DMLP = DIF 

/* aO = | DIF | = DIFM 

/* al = DTHR = DMLP » 3 
/* aO = DIFM - DTHR 



/* Set y = 1536 
/* al = Y - 1536 

/* aO = AX 

/** FILTC 

/* aO = AX « 9 



** / 

*/ 
*/ 



*/ 

** / 

*/ 

** / 
*/ 

*/ 

*/ 



*/ 

• * / 

*/ 

*/ 

*/ 
*/ 

*/ 



** / 

*/ 
*/ 

*/ 

*/ 

** / 

*/ 
*/ 
*/ 

*/ 
*/ 



*/ 
*/ 

*/ 

** / 

*/ 
*/ 
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aO=aO-y 

a0=a0»4 

aO=aO+y 

y=0x3ff 

r2=TR 

aO=aO&y y=*r2 

al=y *r2 

y=0xl00 

if ne aO=y 

*r3=a0 



/* aO = (AX«9) - AP = DIF 

/* aO = DIFSX 

/* aO = DIFSX + AP 

/** TRIGA 

/* aO = APP 

/* Set y = 256 

/* aO = APR 



*/ 
*/ 
*/ 

**/ 
*/ 

*/ 

*/ 



/* */ 

/* FUNCTW */ 

/* */ 



qsfadl: rO=I 

aO=*rO 

y=WI 

aO=aO+y 

pt=aO 

y=*rO x=*pt++ 

aO=x 

a0=a0»8 

a0=a0»4 

aO=aO«l 

r2=Y 

y=0x0 

yl=*r2 

aO=aO-y 

a0=a0»4 

aO=aO»l 

aO=aO+y 

a0=a0«16 

y=0xlfff 

aO=aO&y 

y=5 4 4 

aO-y 

if mi aO=y 

y=5120 

aO-y 

if pi aO=y 

r3=YU 

*r3=a0 

y=0 

yl=aO 

rl=YL 

aO=*rl++ 

a01=*rl — 

aO=-aO 

a0=a0»4 

aO=aO»l 

aO=aO»l 

aO=aO+y 

y=*rl++ 

yl=*rl — 

aO=aO+y 

y=0x7 

yl-Oxffff 

aO=aO&y 

*rl++=aO 

*rl=a01 

goto loop 



/** 



FUNCTW qsfadp.s 



/* aO points to WI 
WI 



/* x 

/** 



FILTD 



/* aOl = WI « 5 

/* y = Y 

/* aO = DIF 

/* aO = DIFSX = DIF » 5 

/* aO = Y + DIFSX 

/* Set y = 8191 

/* aO = YUT 

/** LIMB 

/* If negative, GELL = 1 

/* Set y = 5120 

/* If positive, GEUL = 

/* aO = YUP 

/* Store it. 

/** FILTE 

/* aO = YL 

/* aO = -YL 



/* aO = ( -YL ) » i 

/* aO = DIF = DIFSX 

/* y = YL 

/* aO = YL '+ DIFSX 



/* aO = YLP 

/* Store it. 

/* Go back to execute the next 

/* sampling data. 



** / 

*/ 

*/ 
** / 

*/ 

*/ 
*/ 

*/ 
*/ 

*/ 

*/ 

** / 

*/ 

*/ 
*/ 
*/ 

*/ 

** J 

*/ 
*/ 



*/ 
*/ 

*/ 
*/ 



*/ 

*/ 
*/ 
*/ 
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/* */ 

/* End of Program */ 

/* */ 

posx: 



negx : 



WI: int 0xfff4 /* -12 = 4084 for 12 bits 



FI: 



pos : 



int 


0x9 


int 


Oxa 


int 


Oxb 


int 


Oxc 


int 


Oxd 


int 


Oxe 


int 


Oxf 


int 


0x7 


int 


0x9 


int 


0x6 


int 


0x5 


int 


0x4 


int 


0x3 


int 


0x2 


int 


0x1 


int 


0x0 


int 


0x7 


int 


0x6 


int 


0xfff4 


int 


18 


int 


41 


int 


64 


int 


112 


int 


198 


int 


355 


int 


1122 


int 


1122 


int 


355 


int 


198 


int 


112 


int 


64 


int 


41 


int 


18 


int 


0xfff4 


int 





int 





int 





int 


0x200 


int 


0x200 


int 


0x200 


int 


0x600 


int 


OxeOO 


int 


OxeOO 


int 


0x600 


int 


0x200 


int 


0x200 


int 


0x200 


int 





int 





int 





int 


0x01 


int 


0x02 


int 


0x03 


int 


0x04 


int 


0x05 


int 


0x06 


int 


0x07 


int 


OxOf 


int 


0x01 
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neg: int 


OxOe 


int 


OxOd 


int 


0x0c 


int 


0x0b 


int 


0x0a 


int 


0x09 


int 


0x08 


int 


OxOf 


int 


OxOe 


din: int 


79 


int 


177 


int 


245 


int 


299 


int 


348 


int 


399 


int 


2047 


int 


3971 


int 


4095 


dqln : int 


2048 


int 


4 


int 


135 


int 


213 


int 


273 


int 


323 


int 


373 


int 


425 


tabll: int 


0x0 


int 


0x3f 


int 


0x3f 


int 


0x3f 


int 


0x3f 


int 


0x3f 


int 


0x3f 


int 


0x7e 


int 


Oxfc 


int 


0xlf8 


int 


0x3f0 


int 


0x7e0 


int 


OxfcO 


int 


0xlf80 


int 


0x3f00 


int 


0x7e00 


int 


Ox7eOO 


tabl2: 28*int 


0x0 


int 


0x3 


int 


0x7fff 


int 


0x6 


int 


0x7fff 


int 


Oxc 


int 


0x7fff 


int 


0x18 


int 


0x7fff 


int 


0x30 


int 


0x7fff 


int 


0x60 


int 


0x7fff 


int 


OxcO 


int 


0x7fff 


int 


0x180 


int 


0x7fff 


int 


0x3 


int 


0x6fff 


int 


0x6 


int 


0x6ffe 


int 


Oxc 
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int 


0x6ffc 




int 


0x18 




int 


0x6ff8 




int 


0x30 




int 


0x6ff0 




int 


0x60 




int 


0x6fe0 




int 


OxcO 




int 


Ox6fcO 




int 


0x180 




int 


0x6f80 




int 


0x300 




int 


0x6f00 


. ram 




SD: 


int 




DLN: int 




S: 


int 




SL: 


int 




D: 


int 




temp: int 




tempi : int 




Y: 


int 




YSH2 : int 




I: 


int 




R: 


int 




YL: 


int 
int 




YU: 


int 




AL: 


int 




TDP : int 




AP: 


int 




DMI 


j: int 




DMS 


3: int 




DQC 


): int 




DQ] 


L: int 




dq: 


>t int 




dq: 


I: int 




DQ^ 


1: int 




DQ = 


3 : int 




DQ( 


5 1 int 




sr; 


>: int 




SR] 


L : int 




Bl 


int 




B2 


int 




B3 


int 




B4 


int 




B5 


int 




B6 


: int 




A2 


: int 




Al 


: int 
int 




wb: 


L: int 




wb; 


1 1 int 




wb; 


3: int 




WB' 


1: int 




WB! 


5 : int 




WB 


5 : int 




wa: 


1% int 




wa: 


L: int 




pk: 


L: int 




pk: 


2: int 




PK( 


D: int 




A2I 


?: int 




SE 


i int 
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SEZ: 




int 


DQ16: 


int 


TR: 


int 


AIT: 


int 


SIGPK: 


int 


SR: 


int 


TD: 


int 


DQOS 




int 


DQ1S 




int 


DQ2S 




int 


DQ3S 




int 


DQ4S 




int 


DQ5S 




int 


DQ6S 




int 


SR2S 




int 


SR1S 




int 


DQCNTO: 


int 


DQCNT1: 


int 


DQCNT2: 


int 


DQCNT3: 


int 


DQCNT4: 


int 


DQCNT5: 


int 


DQCNT6: 


int 


SRCNT2: 


int 


SRCNT1: 


int 


. end. 


ram 





/* The TC of DQ */ 
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Program Listing 2. ADPCM Decoder Source Code 



/*******************************************************************/ 
/* */ 

/* This program ADPCM decoder is coded according to the */ 

/* CCITT standard algorithm described in G.721. */ 

/* All the notations used here are based on the CCITT */ 

/* documents and the program only operates in u— law. */ 

/* the multiplication operations in the FMULT block are */ 

/* modified slightly to increase the DSP16 performance */ 

/* with the "bit precision kept. The code in the FMULT */ 

/* block is fully compatible with the CCITT G.721 */ 

/* standard FMULT code. The input data is assumed in */ 

/* RAM location I before program execution and the */ 

/* result is stored in RAM location SD. */ 

/* */ 

/*******************************************************************/ 

/*********************** *************** *****************************/ 
/* */ 

/* Program Initialization */ 

/* */ 

/*******************************************************************/ 



adpcmd: auc=0xc 
y=0x0 
rl=YL 
*rl++=y 
y=0x8800 
*rl=y 
r2=YU 
y=5 4 4 
*r2=y 
y=0x0 
rO=DML 
*rO=y 
rl=DMS 
*rl=y 
r3=AP 
*r3=y 
rO=DQl 
rl=DQCNTl 
y=l 

do 8 { 
*rO++=y 
*rl++=y 
} 

rO=templ 
*rO=y 
y=0x0 
rO=PKl 
do 2 { 
*rO++=y 
} 

rO=Bl 
rl=DQlS 
do 8 { 
*rO++=y 
*rl++=y 
} 

rl=TD 
*rl=y 



/* Set auc register 
/** RESET SECTION 
/* Set initial values for 
/* Quantizer Scale Factor 
/* Adaptation block. 



/* Initialize the Adaptation 
/* Speed Control block 



/* Initialize the Adaptive 
/* and Reconstructed Signal 
/* Calculator block 



*/ 
*/ 
*/ 
*/ 

*/ 



*/ 
*/ 



/* Initialize the Tone and 
/* Transition Detector block. 



*/ 
*/ 
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z***********************************^ 

/* */ 

/* Main Program */ 

/* */ 

/* */ 

/* FMULT */ 

/* */ 



loop: 
pred: 



10bl8: 



c0=-7 

rO=DQCNTl 

rl=DQl 

r2=WBl-l 

r3=Bl 

a0=*r3 

y=0xfffc 

aO=aO&y *r2++=all 

if mi aO=-aO 

aO=aO»l 

if eq a0h=a0h+l 

cl=-16 

al=aO 

do 15 { 

ifc pi al=al«l 

} 

al=c2 

al=-al 

j-al 

y=tabll 

al=al+y 

pt=al 

y=aO x=*pt++ 

aO=x 

aO=aO&y al=*r3++ 

al=al 

if mi aO=-aO 

al=*rO++ 

y=16 

al-y 

if pi aO=aO«l 

x=aO 

aO=j 

y=aO 

al=al+y y=*rl++ 

p=x*y 

y=22 

al-y 

y=0x40 

move aO=y 

if pi a0=a0«8 

al=al«l 

y=tabl2 

al=al+y 

pt=al 

al=p y=aO x=*pt++ 

p=x*y y=aO x=*pt++ 

aO=al 

if mi al=-al 

al=al+p p=x*y 

y=al 

al=al«16 



/** AFTER DELAY PARTS aparsc.s 
/* Set the points before doing 
/* FMULT. 



/* aO = | aO | 

/* If a0=0, then aO = aO + 1 

/* Set counter cl = 16 

/* al = aO 

/* Compute exponent 



/* Now c2 = - ( exponent ) 
/* al = exponent part 



/* y = | Bn | and x is a pattern 
/* used to round | Bn | . 



/* OK, aO = two's complement 
/* value of Bn with the same 
/* accuracy as standard. 



/* y = DQn 
/* p = Bn * 



DQn 



/* Compare al with 22 to set 

/* the right pattern with the 

/* table. 

/* If al >= 22, set aO = 0x400. 



/ + 



il = al * 2 for the offset 



/* al points to the table. 



** / 

*/ 
*/ 



*/ 

*/ 
*/ 
*/ 
*/ 



*/ 
*/ 



*/ 
*/ 



*/ 
*/ 
*/ 



*/ 
*/ 

*/ 
*/ 
*/ 
*/ 
*/ 



/* Set y (32 bits) = al . 
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yl=al 

al=p 

al=al&y 

al=al»8 /* Rescale al . */ 

al=al»4 

al=al»l 

aO=aO /* Check the sign bit. */ 

if mi al=-al /* If negative, then al = -al . */ 

if cOlt goto 10bl8 /* Do eight times. */ 

*r2++=all 

/* */ 

/* ACCUM */ 

/* */ 

rO=WBl /** ACCUM **/ 

aO=*rO++ 

y=*rO++ 

do 5 { 

aO=aO+y y=*rO++ /* Sum for partial signal */ 

} /* estimate */ 

al=aO+y y=*rO /* aO = SEZI */ 

rO=SEZ /* SEZ is 16 bits TC */ 

aO=aO»l 

al=al+y *rO=aO /* al = SEI */ 

rl=SE 

al=al»l 

r3=AP /** AfTER DELAY LIMA adspcl . s **/ 

/* */ 

/* For the non-standard CCITT ADPCM mode, the program from */ 

/* the label, loop (Main program) , to the previous line */ 

/* (r3=AP) replaced by the following program segment. */ 

/* */ 

*/ 
; aparsc */ 

; Set the points before */ 

; doing FMULT */ 

; Clear al */ 

*/ 

*/ 
; p = DQn * Bn */ 

; aO = DQn * Bn */ 

*/ 
; Scaling */ 

*/ 

*/ 

*/ 
; aO = SEZ */ 

*/ 
; Store it */ 

*/ 
; al = SE */ 

*/ 
; adspcl . s */ 

*/ 

a0=*r3 

aO=aO»l 

aO=aO»l 

y=0x3f /* y = ( 255 » 2 ) */ 

yl=0xc00 



/* loop: 




/* pred: 


rl=DQl 


/* 


r2=Bl 


/* 


y=0 


/* 


al=y x=*r2++ 


/*' 


do 6 { 


/* 


y=*rl++ 


/* 


p=x*y 


/* 


aO=p x=*r2++ 


/* 


aO=aO»l 


/* 


aO=aO«4 


/* 


y=aO 


/* 


al=al+y 


/* 


} 


/* 


aO=al»l 


/* 


r3=SEZ 


/* 


*r3=a0 


/* 


redo 2 


/* 


al=al»l 


/* 


rl = SE 


/* 


r3=AP 


/* 
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aO-y *rl=al 

y=64 

if gt aO=y 

x=aO 

r2=YU 

rO=YL 

al=*rO++ 

all=*rO — 

al=al«8 

al=al«l 

al=al«l 

move y=al 

a0=*r2 

aO=aO-y 

y=aO 

p=x*y 

aO=p 

a0=a0«8 

aO=aO«l 

aO=aO«l 

move y=aO 

al=al+y 

y=0xlfff 

r2 = I 

al=al&y a0=*r2 

rl=Y 



/* SE is 16 bits TC 



/* AL = x = aO 

/** AFTER DELAY MIX qsfadp.s 



*/ 



*/ 

** J 



/* y = (YL » 6) 

/* aO = YU 

/* aO = DIFM 

/* p = PRODM = (DIFM * AL) » 6. 



*/ 
*/ 
*/ 



/* y 



PROD 



/* aO = I */ 

/* Y = Standard Y 4— 1 if (YL»6) > YU */ 



/* */ 

/* RECONST */ 

/* */ 



inadql: r3=YSH2 
y=0xf 

aO=aO A y *rl=al 
y=0x08 
aO&y y=*r2 
if ne aO=y 
y=dqln 

aO=aO+y al=*rl 
pt=aO 

y=*rl x=*pt++ 
aO=x 

al=al»l 
al=al»l 
y=al 

aO=aO+y *r3=al 
y=0x7f 
al=aO&y 
y=0x80 
al=al+y 
al=al»l 
al=al«8 
a0=a0«4 
if mi al=al«16 
a0=a0»16 
a0=a0«4 
aO=aO«l 
y=0xf 
aO=aO&y 
y— 14 
aO=aO+y 
cl=aO 
do 14 { 
if cllt al=al»l 



/* 



RECONST inadqu.s 



*/ 



/* aO is the point to DQLN table 
/** 

/* 3 



ADDA 



al 



Y » 2 

ANT I LOG 



/** 

/* al = DMN 

/* y = (1 « 7) 

/* al = DQT 



/* If DS=1, then DQMAG = 0. 



*/ 

** / 

*/ 

*/ 

*/ 
*/ 
*/ 
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} 

rl=DQ0S 

a0=*r2 /* aO = I */ 

y=0x08 
aO=aO&y 

aO=aO«l /* Check DQS . If positive, then */ 

a0=a0»4 /* set DQ0S=0, otherwise DQ0S=1. */ 

*rl=aO 

if ne al=-al /* al = | al | */ 

rl=DQ16 
*rl=al 
transl: aO=*rO++ /** AFTER DELAY TRANS totrde.s **/ 

a01 = *r0 — /* aO = YL */ 

aO=aO«l 
x=aO 

al=x /* al = YLINT */ 

al— al 
cO=al 
al=a0«4 
al=al«l 
y-31 

al=al&y /* al=YLFRAC= (YL » 10) & 31 */ 

y=32 

al=al+y /* al=THRl=(32 4- YLFRAC) */ 

do 8 { 

if cOlt al=al«l 
} 

a0=x 
y=8 

aO-y /* YLINT > 8 ? */ 

y=0x3e00 /* y = 31 « 9 */ 

if gt al=y /* Yes, YLINT > 8. */ 

a0=al»l 
y=a0 

al=al+y a0=*rl /* al=THR2+ (THR2»1 ) , rl=DQ16 */ 

al=al»l /* al = DQTHR */ 

y=al 
a0=a0 

if mi a0=-a0 
r2=TD 

a0=a0-y al=*r2 /* aO = DQMAG - DQTHR */ 

if le al=al«16 /* If less or equal, set */ 

r3=TR /* a0=0. */ 

*r3=al 

/* */ 

/* ADDB */ 

/* */ 

/***********•************************** ***^ 

aparsl: a0=*rl /** BEFORE DELAY — ADDB aparsc.s **/ 

rO=SE /* rl=DQ16 */ 

r3=SRlS 
y=*r0 

a0=a0+y x=*r3 — /* aO = SR */ 

rO=SR 
*r0=a0 

y=0 /* Set al = SR sign bit */ 

move al=y 

if mi alh=alh+l /** FLOATB **/ 

a0=a0 

if mi a0=-a0 /* aO = MAG = | SR | */ 

*r3++=x 

*r3=al /* Update the sign bit storage. */ 

a0=a0«l 
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if eq a0h=a0h+l 

cl=-16 

c2=-16 

al=aO 

do 15 { 

ifc pi al=al«l 

} 

r2=SRCNTl 

al=c2 

al=-al 

y=16 

al-y x=*r2 

*r2—=al 

if eq aO=aO»l 

y=tabll 

*r2=x 

al=al+y 

pt=al 

y=*r2 x=*pt++ 

al=x 

y=al 

aO=aO&y al=*r3 

al=al 

if ne aO=-aO 

r2=SRl 

y=*r2 — 

*r2++=y 

*r2=a0 

rO=DQl 

r3=Bl 

i=128 

r2=TR 

do 6 { 

aO=*rl 

al=aO 

y=*rO++ 

al=al A y y=*r3 

al=i 

if mi al=-al 

aO=aO 

if eq al=al«16 

al=al+y a0=*r3 

a0=a0»8 

y=aO 

al=al-y a0=*r2 

aO=aO 

if ne al=al«16 

*r3++=al 

} 

aO=*rl 

aO=aO«l 

if mi aO=-aO 

if eq a0h=a0h+l 

cl=-16 

al=aO 

do 15 { 

ifc pi al=al«l 

} 

al=c2 

al=-al 

r2=DQCNT0 

y=tabll 

al=al+y *r2=al 

pt=al 

y=*r2 x=*pt++ 



/* Find the EXP from the MAG. 



/* Check EXP = 16 ? 

/* Yes, shift it back. 

/* Use the table looking up to 

/* find the pattern for retaining 

/* the bit precision in 

/* converting into floating 

/* format, and be represented 

/* in signed magnitude. 



/* Update the SR' s parameters. 



/** UPB 

/* Set the points for cache. 



/* Do six times. 

/* aO = DQ 

/* y = DQn 

/* al = Un = DQ A DQn 

/* If al positive, then Un=0. 

/* If al negative, then Un=l . 

/* al = UGBn 

/* al = UGBn + Bn 

/* aO = Bn » 8 

/* al = BnP 

/** TRIGB 

/* If =| 0, set al=0. 



/** FLOATA 

/* aO = DQ, rl=DQ16 
/* aO = |a0| 

/* Set the initial counter to 
/* find the EXP of aO. 



*/ 

*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



• */ 
*/ 



*/ 
*/ 

*/ 
*/ 
*/ 
*/ 

*/ 
*/ 
*/ 

*/ 
**/ 

*/ 



** / 

*/ 
*/ 

*/ 
*/ 



/* al = EXP of DQ 
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al=x 

y=al 

rO=DQOS 

aO=aO&y al=*rO 

al=al 

if ne aO=-aO 

r2=DQ0 

y=*rl 

rO=SEZ 

al=*rO 

al=al+y *r2=a0 

y=0 

move aO=y 

if eq a0h=a0h+l 

rO=SIGPK 

*rO=aO 

move aO=y 

al=al 

if mi aOh=aOh+l 

r2=PK0 

rO=Al 

y=*rO 

al=y *r2=a0 

if mi goto lab2 6 

y=0xlfff 

aO-y 

if gt aO=y 

a0=a0»16 

aO=aO«l 

aO=aO«l 

goto lab2 8 
lab2 6: y=OxO 

yl=*rO 

aO=y 

yl=0xe000 

al=aO-y 

aO=aO«l 

aO=aO«l 

y=0xl 

yl=0xffff 

aO=aO&y 

yl=0x8004 

al=al 

if le aO=y 
lab28: y=*r2 

rl=PKl 

al=y y=*rl x=*pt++ 

al=al A y 

if eq aO=-aO 

y=*r2 

rl=PK2 

a l=y y=*rl x=*pt++ 

al=al A y 

y=0xl 

yl=0xc000 

if ne goto lab31 

y=0x0 

yl=0x4000 
lab31: rO=SIGPK 

aO=aO+y al=*rO 

aO=aO»l 

a0=a0«16 

a0=a0»4 

aO=aO»l 

aO=aO»l 



/* aO contains the magnitude DQ 

/* Check the sign bit of DQO . 

/* Convert it into 2's complement. 



/•* 



ADDC 



/* aO = DQSEZ 

/* If DQSEZ=0, set aO = 1 

/* otherwise, set aO = 

/* Store it in SIGPK. 



/* Find the PKO 

/** UPA2 

/* Check A1S = ? 

/* Yes, compare with 8191. 

/* If aO > 8191, set aO = 8191 

/* aO = aO » 14 

/* No, compare with 57345 

/* Al - 57344 >=0 ? 

/* Yes, aO = Al « 2 

/* No, aO = 24577 « 2 



/* al = PKO A PK1 = PKS1 
/* aO = FA 



/* al = PKO A PK2 = PKS2 
/* Set y = 114688 if al < 



/* otherwise, set y = 16384 



/* aO = UGA2B 



/* aO = aO « 9 



*/ 
*/ 
*/ 

**/ 



*/ 

*/ 
*/ 

*/ 



*/ 

** / 

*/ 
*/ 
*/ 

*/ 
*/ 

*/ 
*/ 



*/ 
*/ 



*/ 
*/ 



*/ 
*/ 

*/ 
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y=0x0 

al=al 

if ne aO=y 

rO=A2 

y=*rO 

aO=aO+y 

al=y 

al=al»8 

al=al«l 

y=al 

aO=aO-y 

al=aO 

if mi al=-al 

y=0x3000 

al-y 

if pi al=y 

aO=aO 

if mi al=-al 

rO=A2P 

*rO=al 

rl=TR 

aO=*rl 

aO=aO 

if ne al=al«16 

rl=A2 

*rl=al 

rl=PKl 

rO=PKO 

al=*rl++ 

y=*rO 

al=al A y 

*rl=y 

y=192 

move aO=y 

if ne aO=-aO 

rO=SIGPK 

al=*rO 

al=al 

if ne a0=a0«16 

rO=Al 

y=*rO 

aO=aO+y 

al=y 

al=al»8 

y=al 

aO=aO-y 

r2=AlT 

y=0x3c00 

rl=A2P 

al=*rl 

al=al-y *r2=a0 

al=-al 

y=al 

al=aO 

if mi al=-al 

al-y 

if pi al=y 

aO=aO 

if mi al=-al 

rO=TR 

aO=*rO 

aO=aO 

if ne al=al«16 

rO=Al 

*rO=al 



/* Check SIGPK = ? 
/* If not, set aO = 0. 
/* aO = UGA2 

/* aO = UGA2 + A2 
/* al = A2 

/* al = A2 » 7 

/* aO = A2T 

/** LIMC 

/* al = | all 

/* Set y = 12288 

/* | al | > 12288 ? 

/* Yes, set | al | = 12288 

/* al = A2P 



/*' 



TRIGB 



/* If TR =| 0, set al = 0. 



I ** 



UPA1 



*rl — =al /* al = PKO A PK1 = PKS 



/* Set aO = 192 if PKS = 
/* otherwise, set aO = 65344 



/* aO=UGAl 

/* y = Al 

/* aO = UGA1 + Al 

/* al = Al 

/* al = Al » 8 

/* aO = UGA1 + Al - (Al » 8) 

/** LIMD 

/* Set y = 15360 

/* al = A2P - 15360, aO = AIT 

/* y = A1UP 

/* al = | AIT | 
/* | AIT | - A1UP 



/* al 
/** 



A1P 



TRIGB 



/* Check TR = ? 

/* If not, then set al = 

/* otherwise, keep al . 



*/ 
*/ 
*/ 

*/ 
*/ 

*/ 

*/ 

** / 

*/ 
*/ 
*/ 
*/ 

*/ 



** / 

*/ 
** / 



'/ 



■*/ 
*/ 



*/ 
*/ 
*/ 
*/ 

*/ 

*/ 

*/ 

*/ 

*/ 
*/ 



*/ 

** / 

*/ 
*/ 

*/ 
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rO=DQO 

y=*rO++ 

do 6 { 

*rOzp:y /* Update the DQn parameters for */ 

} /* the next input data. */ 

rO=DQOS 

y=*rO++ 

do 6 { 

*rOzp:y /* Update the sign bit of DQn for */ 

} /* the next input data. */ 

rO=DQCNTO 

y=*rO++ 

do 6 { 

*rOzp:y /* Update the parameters for */ 

} /* the next input data. */ 

/* */ 

/* TONE */ 

/* */ 

totrdl: rO=A2P /** TONE totrde.s **/ 

aO=*rO 

y=0x2e00 /* y = 11776 */ 

aO=aO+y /* a2 (k) + 0.71875 */ 

y=0 

move al=y 

if mi alh=alh+l /* al = TDP */ 

rO=TDP 
*r0=al 

r3=TR /** TRIGB **/ 

a0=*r3 

a0=a0 /* Check TR = ? */ 

if ne al=al«16 /* If not, set al = */ 

rl=TD /* otherwise, keep al . */ 

*rl=al 

adspcl: rO=I /** FUNCTF adspcl . s **/ 

a0=*r0 /* aO = I */ 

y=FI 

a0=a0+y /* Use the table looking up to */ 

r2=DML /* find the FI (scaled) value. */ 

pt=a0 

y=*r2 x=*pt++ 

a0=x /* aO = FI */ 

al=a0«l /** FILTB **/ 

al=al«l /* al = FI « 11 */ 

al=al-y /* al = (FI«11) - DML = DIF */ 

al=al«l 

al=al»8 /* al = DIF » 7 = DIFSX */ 

al=al+y /* al = DIFSX + DML */ 

y=0x3fff /* Set y = 16383 */ 

rl=DMS 

al=al&y y=*rl 

a0=a0-y *r2=al /** FILTA **/ 

a0=a0»l 
a0=a0«4 

a0=a0»8 /* aO = DIFSX = DIF » 5 */ 

a0=a0+y /* aO = DIFSX + DMS */ 

y=0xfff 
a0=a0&y y=*r2 

*rl=a0 /* aO = DMSP */ 

a0=a0«l /** SUBTC **/ 

a0=a0«l /* aO = DMSP « 2 */ 

a0=a0-y al = *r2 /* aO = (DMSP«2) - DMLP = DIF */ 

if mi a0=-a0 /* aO = | DIF | = DIFM */ 
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al=al»4 

al=al«l /* al = DTHR = DMLP » 3 */ 

move y=al 

r3=Y 

aO=aO-y al=*r3 /* aO = DIFM - DTHR */ 

r3=TDP 

a0=*r3 

y-i 

if pi aO=y 

y=1536 /* Set y = 1536 */ 

al=al-y /* al = Y - 1536 */ 

y-i 

if mi aO=y /* aO = AX */ 

a0=a0«8 /** FILTC **/ 

aO=aO«l /* aO = AX « 9 */ 

r3=AP 

y=*r3 /* y = AP */ 

aO=aO-y /* aO = (AX«9) - AP = DIF */ 

aO=aO»4 /* aO = DIFSX */ 

aO=aO+y /* aO = DIFSX + AP */ 

y=0x3ff 

r2=TR /** TRIGA **/ 

aO=aO&y y=*r2 /* aO = APP */ 

al=y *r2 

y=0xl00 /* Set y = 256 */ 

if ne aO=y 

*r3=a0 /* aO = APR */ 

/* */ 

/* FUNCTW */ 

/* */ 

qsfadl: rO=I /** FUNCTW qsfadp.s **/ 

aO=*rO 
y=WI 

aO=aO+y /* aO points to WI */ 

pt=aO 

y=*rO x=*pt++ /* x = WI */ 

aO=x /** FILTD **/ 

a0=a0»8 
a0=a0»4 

aO=aO«l /* aOl = WI « 5 */ 

r2=Y 
y=0x0 

yl=*r2 /* y = Y */ 

aO=aO-y /* aO = DIF */ 

aO=aO»4 

aO=aO»l /* aO = DIFSX = DIF » 5 */ 

aO=aO+y /* aO = Y + DIFSX */ 

a0=a0«16 

y=0xlfff /* Set y = 8191 */ 

aO=aO&y /* aO = YUT */ 

y=544 /** LIMB **/ 

aO-y /* If negative, GELL =1 */ 

if mi aO=y 

y=5120 /* Set y = 5120 */ 

aO-y /* If positive, GEUL =0 */ 

if pi aO=y /* aO = YUP */ 

r3=YU 

*r3=a0 /* Store it. */ 

y=0 
yl=aO 

rl=YL /** FILTE **/ 

aO=*rl++ 
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a01=*rl — 

aO=-aO 

aO=aO»4 

aO=aO»l 

aO=aO»l 

aO=aO+y 

y=*rl++ 

yl=*rl — 

aO=aO+y 

y=0x7 

yl=0xffff 

aO=aO&y 

*rl++=aO 

*rl=a01 



/* aO = YL 
/* aO = -YL 



/* aO = ( -YL ) » 6 

/* aO = DIF = DIFSX 

/* y = YL 

/* aO = YL + DIFSX 



/* aO = YLP 
/* Store it. 



*/ 
*/ 



*/ 

*/ 

*/ 
*/ 



*/ 
*/ 



/* */ 

/* COMPRESS */ 

/* */ 



comprs: r3=temp 
rO=SR 
aO=*rO 
al=a0»8 
y=0x80 
al=al&y 
*r3=al 

if ne aO=-aO 
y=8158 
al=aO-y 
if gt aO=y 
y=33 
aO=aO+y 
cl=-10 
do 10 { 
ifc pi a0=a0«l 

} 

a0=a0«l 

a0=a0»4 

a0=a0»8 

y=0xf 

a0=a0&y 

al=c2 

al— al 

al=al«4 

y=al 

a0=a0+y y=*r3 

a0=a0+y 

y=0xff 

a0=a0 A y 

rl=S 

*rl=a0 



/** COMPRESS comprs . s 

/* Convert from uniform PCM to 
/* u-law PCM. 



/* Extract the sign bit. 

/* Store it. 

/* aO = IMAG 

/* Beyond the border ? 

/* Yes, set the maximal value 

/* aO = aO + 33 

/* Set the initial counter 

/* Find the abc value. 



**/ 

*/ 
*/ 



*/ 
*/ 
*/ 

*/ 
*/ 

*/ 

*/ 

*/ 



/* aO is the xyzw value. 
/* al = abc 



/* y = the sign bit 

/* aO = the before bit inverted 



/* aO = u-law 
/* Store it. 



*/ 

*/ 

*/ 
*/ 

*/ 

*/ 



/* */ 

/* For the non-standard CCITT ADPCM mode, the program from */ 

/* the ipcdsc label, (EXPAND sub-program) , to the line */ 

/* before the End of Program, (goto loop) , will be deleted. */ 

/* The output will be stored in RAM location S. */ 

/* */ 
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/* */ 

/* EXPAND */ 

/* */ 

ipcdsc: rl=S /** EXPAND ipcmv.s **/ 

aO=*rl 

y=0xff /* Invert bits. */ 

aO=aO A y /* This program only considers */ 

al=a0»4 /* the input as u-law. */ 

y=0x7 

al=al&y /* al = L = abc */ 

al=-al 
cO=al 
y=0xf 

al=aO&y /* al = V = xyzw */ 

al=al«l 
y=0x21 
al=al |y 
do 7 { 
if cOlt al=al«l 

} 

y=33 

al=al-y 

y=0x80 /* Check the sign bit. */ 

rO=SE 

aO=aO&y y=*rO 

if ne al=-al /* If negative, then al = -al . */ 

rl=D /** SUBTA **/ 

al=al-y 

*rl=al 

/* */ 

/* LOG */ 

/* */ 

adaqul: rO=D /** LOG adaqua . s **/ 

y=*rO 
aO=y *r0 

if mi aO=-aO /* Convert D from 2's complement. */ 
cl=-15 /* to signed magnitude */ 

al=aO 
do 15 { 
ifc pi al=al«l /* Compute exponent */ 

} 

y=0x7f00 

aO=al&y 

a0=a0»8 

al=c2 

y=aO 

al— al 

al=al«8 

al=al»l /* al = EXP « 7 */ 

rO=YSH2 

al=al+y y=*rO /* y = Y » 2 */ 

al=al-y /** SUBTB **/ 

y=4095 

al=al&y 

rO=DLN /* DLN = (DL + 4096 - y) & 4095 */ 

*r0=al 
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/* */ 

/* SYNC */ 

/* */ 



sync: r3=templ /** 

rO=DLN 

al=*rO 

al=al»16 

rl = 

pt=dln 

y=*r3 x=*pt++ 
ldb3: p=x*y y=*r3 x=*pt++ 

aO=al-p *rl++ 

if gt goto ldb3 

rO=D 

y=*rO 

aO=y *r0 

y=posx-l 

if pi goto ldb5 

y=negx-l 
ldb5: aO=rl 

aO=aO+y 

pt=aO 

y=*rO x=*pt++ 

rl=S 

aO=*rl 

y=0xff 

aO=aO A y 

rO=I 

al=*rO 

y=IM 

al=al+y 

pt=al 

al=x 

y=al x=*pt++ 

al=x 

al=al-y 

if eq goto ldbl7 

if pi goto ldbll 

y=0x80 

al=aO&y 

if eq goto ldb8 

y=255 

al=aO-y 

if ne a0h=a0h+l 

goto ldbl7 
ldb8: y=l 

aO=aO-y 

y=129 

if mi aO=y 

goto ldbl7 
ldbll: y=0x80 

aO&y 

if eq goto ldbl4 

y-i 

aO=aO-y 
y=127 
aO-y 
y-1 

if eq aO=y 
goto ldbl7 
ldbl4: y=127 

al=aO-y 



SYNC syncs 



/* al = DLNX 

/* alh = 0x0, all = DLNX 

/* Set counter to find the table 

/* offset. 

/* Find the table offset 



/* Check positive or negative ? 



/* aO points to the desired DLNX 
/* in the table. 



/* aO = S 

/* Bit inverted 

/* al = I 

/* al points to the desired IM 

/* in the table IM. 



/* al = IM 

/* Check IM-ID ? 

/* If zero, SD = SP . 

/* If positive, SD = SP+ 

/* If negative, SD = SP- 



/* The SP- represents the next 
/* more negative PCM output 
/* level. 



/* The SP+ represents the next 
/* more positive PCM output 
/* level . 



**/ 

*/ 
*/ 
*/ 
*/ 

*/ 



*/ 



*/ 

*/ 



*/ 

*/ 

*/ 

*/ 
*/ 



*/ 
*/ 
*/ 
*/ 
*/ 



*/ 
*/ 
*/ 



*/ 

*/ 
*/ 
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if ne a0h=a0h+l 
ldbl7: y=0xff 
aO=aO A y 
rl=SD 
*rl=aO 
goto loop 



/* Do bit inversion. 



*/ 



/* Store it. */ 

/* Go back to execute the next */ 
/* sampling data. */ 



/******************************************************************/ 

/* */ 

/* End of Program */ 

/* */ 

/************** **************************** ************************/ 



posx : 



negx : 



WI: 



FI: 



pos : 



int 


0x9 


int 


Oxa 


int 


Oxb 


int 


Oxc 


int 


Oxd 


int 


Oxe 


int 


Oxf 


int 


0x7 


int 


0x9 


int 


0x6 


int 


0x5 


int 


0x4 


int 


0x3 


int 


0x2 


int 


0x1 


int 


0x0 


int 


0x7 


int 


0x6 


int 


0xfff4 


int 


18 


int 


41 


int 


64 


int 


112 


int 


198 


int 


355 


int 


1122 


int 


1122 


int 


355 


int 


198 


int 


112 


int 


64 


int 


41 


int 


18 


int 


0xfff4 


int 





int 





int 





int 


0x200 


int 


0x200 


int 


0x200 


int 


0x600 


int 


OxeOO 


int 


OxeOO 


int 


0x600 


int 


0x200 


int 


0x200 


int 


0x200 


int 





int 





int 





int 


0x01 


int 


0x02 



/* -12 



4084 for 12 bits 



*/ 



39 



implementation ©f ADPCIM Traoscoder 





int 


0x03 




int 


0x04 




int 


0x05 




int 


0x06 




int 


0x07 




int 


OxOf 




int 


0x01 


neg: 


int 


OxOe 




int 


OxOd 




int 


0x0c 




int 


0x0b 




int 


0x0a 




int 


0x09 




int 


0x08 




int 


OxOf 




int 


OxOe 


din: 


int 


79 




int 


177 




int 


245 




int 


299 




int 


348 




int 


399 




int 


2047 




int 


3971 




int 


4095 


dqln : 


int 


2048 




int 


4 




int 


135 




int 


213 




int 


273 




int 


323 




int 


373 




int 


425 


IM: 


int 


0x8 




int 


0x9 




int 


Oxa 




int 


Oxb 




int 


Oxc 




int 


Oxd 




int 


Oxe 




int 


Oxf 




int 


0x0 




int 


Oxl 




int 


0x2 




int 


0x3 




int 


0x4 




int 


0x5 




int 


0x6 




int 


0x7 


tabll: 


int 


0x0 




int 


0x3f 




int 


0x3f 




int 


0x3f 




int 


0x3f 




int 


0x3f 




int 


0x3f 




int 


0x7e 




int 


Oxfc 




int 


Oxlf 8 




int 


0x3f0 




int 


0x7e0 




int 


OxfcO 




int 


0xlf80 




int 


0x3f00 




int 


0x7e00 



40 



Implementation ©f ADPCM Transcodeir 





int 


0x7e00 


tabl2: 28*int 


0x0 




int 


0x3 




int 


0x7fff 




int 


0x6 




int 


0x7fff 




int 


Oxc 




int 


0x7fff 




int 


0x18 




int 


0x7fff 




int 


0x30 




int 


0x7fff 




int 


0x60 




int 


0x7fff 




int 


OxcO 




int 


0x7fff 




int 


0x180 




int 


0x7fff 




int 


0x3 




int 


0x6fff 




int 


0x6 




int 


0x6ffe 




int 


Oxc 




int 


0x6ffc 




int 


0x18 




int 


0x6ff8 




int 


0x30 




int 


0x6ff 




int 


0x60 




int 


0x6fe0 




int 


OxcO 




int 


0x6fc0 




int 


0x180 




int 


0x6f 80 




int 


0x300 




int 


0x6f00 


. ram 




SD: 


int 




DLN 


int 




S: 


int 




SL: 


int 




D: 


int 




temp: int 




tempi : int 




Y: 


int 




YSH2: int 




I: 


int 




R: 


int 




YL: 


int 
int 




YU: 


int 




TDP 


int 




AP: 


int 




DML 


int 




DMS 


int 




DQO 


int 




DQ1 


int 




DQ2 


int 




DQ3 


int 




DQ4 


int 




DQ5 


int 




DQ6 


int 




SR2 


int 




SRI 


int 
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Bl: 




int 


B2: 




int 


B3: 




int 


B4: 




int 


B5: 




int 


B6: 




int 


A2: 




int 


Al: 




int 




int 


WB1 




int 


WB2 




int 


WB3 




int 


WB4 




int 


WB5 




int 


WB6 




int 


WA2 




int 


WA1 




int 


PK1 




int 


PK2 




int 


PKO 




int 


A2P 




int 


SE: 


int 


SEZ: 


int 


DQ16: 


int 


TR: 


int 


AIT: 


int 


SIGPK: 


int 


SR: 


int 


TD: 


int 


DQOi 




int 


DQli 




int 


DQ2S 




int 


DQ3£ 




int 


DQ4S 




int 


DQ5£ 




int 


DQ6S 




int 


SR2S 




int 


SR1£ 




int 


DQCNTO: 


int 


DQCNT1: 


int 


DQCNT2: 


int 


DQCNT3: 


int 


DQCNT4: 


int 


DQCNT5: 


int 


DQCNT6: 


int 


SRCNT2: 


int 


SRCNT1: 


int 


. enc 


Iram 





/* The TC of DQ 



*/ 
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